home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON07 / ACT07A / L07A2.DIR / Internal_45_speaker.ls < prev    next >
Encoding:
Text File  |  2003-05-01  |  537 b   |  21 lines
  1. property pspeakerSpr, paudioList
  2.  
  3. on exitFrame me
  4.   if me.spriteNum < 0 then
  5.     animateSpeaker(pspeakerSpr, value(paudioList))
  6.   end if
  7. end
  8.  
  9. on mouseUp me
  10.   if me.spriteNum > 0 then
  11.     animateSpeaker(pspeakerSpr, value(paudioList))
  12.   end if
  13. end
  14.  
  15. on getPropertyDescriptionList
  16.   description = [:]
  17.   addProp(description, #pspeakerSpr, [#default: 117, #format: #integer, #comment: "Enter speaker's sprite:"])
  18.   addProp(description, #paudioList, [#default: EMPTY, #format: #string, #comment: "Enter audio list:"])
  19.   return description
  20. end
  21.